home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / lisp / utils / forms-pass.el < prev    next >
Encoding:
Text File  |  1995-01-31  |  584 b   |  27 lines
  1. ;;; forms-pass.el --- demo for forms-mode
  2. ;; Keywords: extensions
  3.  
  4. ;; This demo visits your passwd file.
  5.  
  6. ;; use yp if present
  7. (or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
  8.     (setq forms-file "/etc/passwd"))
  9.  
  10. (setq forms-read-only t)        ; to make sure
  11. (setq forms-field-sep ":")
  12. (setq forms-number-of-fields 7)
  13.  
  14. (setq forms-format-list
  15.       (list
  16.        "====== Visiting " forms-file " ======\n\n"
  17.        "User : "    1
  18.        "   Uid: "    3
  19.        "   Gid: "    4
  20.        "\n\n"
  21.        "Name : "    5
  22.        "\n\n"
  23.        "Home : "    6
  24.        "\n\n"
  25.        "Shell: "    7
  26.        "\n"))
  27.